VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CCategoria"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
Dim logica As lCategoria
Dim lEstado As lEstado
Public Function getLista() As Collection
Set getLista = logica.getLista(New bCategoria)
End Function
Private Sub Class_Initialize()
Set logica = New lCategoria
Set lEstado = New lEstado
End Sub
Public Function eliminar(bean As bCategoria)
eliminar = logica.eliminar(bean)
If eliminar = UtilConstantes.OPT_ERROR_ENCONTRADO Then
    utilMensaje.muestraMensaje errorEncontrado
End If
End Function
Public Sub mostrarNuevo()
Dim Frm As New frmEntrarCategoria
Frm.modo = UtilConstantes.MODO_NUEVO
Set Frm.ListaEstado = lEstado.getEstadosCategoria
Frm.Show 1
End Sub
Public Sub mostrarActualizar(bean As bCategoria)
Dim Frm As New frmEntrarCategoria
Frm.modo = UtilConstantes.MODO_ACTUALIZAR
Set Frm.ListaEstado = lEstado.getEstadosCategoria
Set Frm.bean = bean
Frm.Show 1
End Sub
Public Function guardarNuevo(bean As bCategoria) As Integer
Dim result As Integer

result = logica.guardarNuevo(bean)
    Select Case result
        Case UtilConstantes.OPT_DATOS_GUARDADOS
            guardarNuevo = UtilConstantes.OPT_DATOS_GUARDADOS
        Case UtilConstantes.OPT_ERROR_ENCONTRADO
            utilMensaje.muestraMensaje errorEncontrado
        Case UtilConstantes.OPT_CLAVE_DUPLICADA
            utilMensaje.muestraMensaje codigoDuplicado
        Case UtilConstantes.OPT_NOMBRE_DUPLICADO
            utilMensaje.muestraMensaje DatoDuplicado
    End Select
    
guardarNuevo = result
End Function
Public Function actualizar(bean As bCategoria) As Integer
Dim result As Integer

result = logica.actualizar(bean)
    Select Case result
        Case UtilConstantes.OPT_DATOS_GUARDADOS
           ' utilMensaje.muestraMensaje DatosGuardados
        Case UtilConstantes.OPT_ERROR_ENCONTRADO
            utilMensaje.muestraMensaje errorEncontrado
        Case UtilConstantes.OPT_CLAVE_DUPLICADA
            utilMensaje.muestraMensaje codigoDuplicado
        Case UtilConstantes.OPT_NOMBRE_DUPLICADO
            utilMensaje.muestraMensaje DatoDuplicado
    End Select
actualizar = result
End Function




